home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / N-P / Pocket3.cpt / Math < prev    next >
MacBinary  |  1988-02-09  |  4.6 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file TTComp archive data, binary, 1K dictionary default (weak)
99% file MacBinary II, inited, Tue Feb 9 11:13:16 1988, modified Tue Feb 9 11:13:16 1988, creator Macintosh Edit, type ASCII, 4124 bytes "Math" , at 0x109c 348 bytes resource default (weak)
98% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-1K) default (weak)
16% TrID MacBinary 2 default (weak)
0% TrID Sybase iAnywhere database files default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 4d 61 74 68 00 00 | 00 00 00 00 00 00 00 00 |..Math..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 10 1c 00 | 00 01 5c 9e 34 e4 1c 9e |........|..\.4...|
|00000060| 34 e4 1c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |4.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 01 ef 00 00 |........|........|
|00000080| 28 20 4d 61 74 68 20 72 | 6f 75 74 69 6e 65 73 20 |( Math r|outines |
|00000090| 66 6f 72 20 50 6f 63 6b | 65 74 20 46 6f 72 74 68 |for Pock|et Forth|
|000000a0| 20 29 0d 0d 3a 20 32 52 | 4f 4f 54 20 28 20 64 20 | )..: 2R|OOT ( d |
|000000b0| 2d 2d 20 6e 20 29 20 28 | 20 73 71 75 61 72 65 20 |-- n ) (| square |
|000000c0| 72 6f 6f 74 20 29 0d 20 | 20 20 20 2c 24 20 34 38 |root ). |   ,$ 48|
|000000d0| 45 37 20 20 2c 24 20 32 | 38 30 30 20 20 28 20 2e |E7  ,$ 2|800  ( .|
|000000e0| 6c 6f 6e 67 20 53 50 20 | 2d 5d 20 32 38 30 30 20 |long SP |-] 2800 |
|000000f0| 6d 6f 76 65 6d 3e 2c 20 | 29 0d 20 20 20 20 2c 24 |movem>, |).    ,$|
|00000100| 20 32 30 31 36 20 20 20 | 20 20 20 20 20 20 20 20 | 2016   |        |
|00000110| 28 20 50 53 20 5d 20 44 | 30 20 6d 6f 76 65 2c 20 |( PS ] D|0 move, |
|00000120| 29 0d 20 20 20 20 2c 24 | 20 33 38 33 43 20 20 2c |).    ,$| 383C  ,|
|00000130| 24 20 30 30 30 46 20 20 | 28 20 2e 77 6f 72 64 20 |$ 000F  |( .word |
|00000140| 20 31 35 20 23 20 44 34 | 20 6d 6f 76 65 2c 20 20 | 15 # D4| move,  |
|00000150| 2e 6c 6f 6e 67 20 29 0d | 20 20 20 20 2c 24 20 37 |.long ).|    ,$ 7|
|00000160| 32 30 30 20 20 2c 24 20 | 37 34 30 30 20 20 28 20 |200  ,$ |7400  ( |
|00000170| 30 20 44 31 20 6d 6f 76 | 65 71 2c 20 30 20 44 32 |0 D1 mov|eq, 0 D2|
|00000180| 20 6d 6f 76 65 71 2c 20 | 29 0d 20 20 20 20 2c 24 | moveq, |).    ,$|
|00000190| 20 45 33 38 30 20 20 2c | 24 20 45 33 39 31 20 20 | E380  ,|$ E391  |
|000001a0| 28 20 44 4f 2c 20 20 31 | 20 23 20 44 30 20 61 73 |( DO,  1| # D0 as|
|000001b0| 6c 2c 20 20 31 20 23 20 | 44 31 20 72 6f 78 6c 2c |l,  1 # |D1 roxl,|
|000001c0| 20 29 0d 20 20 20 20 2c | 24 20 45 33 38 30 20 20 | ).    ,|$ E380  |
|000001d0| 2c 24 20 45 33 39 31 20 | 20 28 20 20 20 31 20 23 |,$ E391 | (   1 #|
|000001e0| 20 44 30 20 61 73 6c 2c | 20 20 31 20 23 20 44 31 | D0 asl,|  1 # D1|
|000001f0| 20 72 6f 78 6c 2c 20 29 | 0d 20 20 20 20 2c 24 20 | roxl, )|.    ,$ |
|00000200| 45 33 38 32 20 20 2c 24 | 20 32 36 30 32 20 20 28 |E382  ,$| 2602  (|
|00000210| 20 20 20 31 20 23 20 44 | 32 20 61 73 6c 2c 20 20 |   1 # D|2 asl,  |
|00000220| 44 32 20 44 33 20 6d 6f | 76 65 2c 20 29 0d 20 20 |D2 D3 mo|ve, ).  |
|00000230| 20 20 2c 24 20 45 33 38 | 33 20 20 2c 24 20 42 32 |  ,$ E38|3  ,$ B2|
|00000240| 38 33 20 20 28 20 20 20 | 31 20 23 20 44 33 20 61 |83  (   |1 # D3 a|
|00000250| 73 6c 2c 20 20 44 33 20 | 44 31 20 63 6d 70 2c 20 |sl,  D3 |D1 cmp, |
|00000260| 29 0d 20 20 20 20 2c 24 | 20 36 33 30 36 20 20 20 |).    ,$| 6306   |
|00000270| 20 20 20 20 20 20 20 20 | 28 20 20 20 6c 73 20 49 |        |(   ls I|
|00000280| 46 2c 20 29 0d 20 20 20 | 20 2c 24 20 35 32 38 32 |F, ).   | ,$ 5282|
|00000290| 20 20 2c 24 20 35 32 38 | 33 20 20 28 20 20 20 20 |  ,$ 528|3  (    |
|000002a0| 20 31 20 44 32 20 61 64 | 64 71 2c 20 20 31 20 44 | 1 D2 ad|dq,  1 D|
|000002b0| 33 20 61 64 64 71 2c 20 | 29 0d 20 20 20 20 2c 24 |3 addq, |).    ,$|
|000002c0| 20 39 32 38 33 20 20 20 | 20 20 20 20 20 20 20 20 | 9283   |        |
|000002d0| 28 20 20 20 20 20 44 33 | 20 44 31 20 73 75 62 2c |(     D3| D1 sub,|
|000002e0| 20 20 54 48 45 4e 2c 20 | 29 0d 20 20 20 20 2c 24 |  THEN, |).    ,$|
|000002f0| 20 35 31 43 43 20 20 2c | 24 20 46 46 45 36 20 20 | 51CC  ,|$ FFE6  |
|00000300| 28 20 44 34 20 4c 4f 4f | 50 2c 20 29 0d 20 20 20 |( D4 LOO|P, ).   |
|00000310| 20 2c 24 20 32 43 38 32 | 20 20 20 20 20 20 20 20 | ,$ 2C82|        |
|00000320| 20 20 20 28 20 44 32 20 | 50 53 20 5d 20 6d 6f 76 |   ( D2 |PS ] mov|
|00000330| 65 2c 20 29 0d 20 20 20 | 20 2c 24 20 34 43 44 46 |e, ).   | ,$ 4CDF|
|00000340| 20 20 2c 24 20 30 30 31 | 34 20 20 28 20 31 34 20 |  ,$ 001|4  ( 14 |
|00000350| 53 50 20 5d 2b 20 6d 6f | 76 65 6d 3c 2c 20 29 0d |SP ]+ mo|vem<, ).|
|00000360| 20 20 20 20 64 72 6f 70 | 20 3b 0d 3a 20 5e 32 20 |    drop| ;.: ^2 |
|00000370| 28 20 6e 20 2d 2d 20 64 | 20 29 20 64 75 70 20 75 |( n -- d| ) dup u|
|00000380| 2a 20 3b 0d 3a 20 52 41 | 4e 44 4f 4d 20 28 20 6e |* ;.: RA|NDOM ( n|
|00000390| 20 2d 2d 20 6e 27 20 29 | 20 28 20 72 61 6e 64 6f | -- n' )| ( rando|
|000003a0| 6d 20 6e 75 6d 62 65 72 | 20 66 72 6f 6d 20 30 20 |m number| from 0 |
|000003b0| 74 6f 20 6e 20 29 0d 20 | 20 20 20 30 20 3e 72 20 |to n ). |   0 >r |
|000003c0| 2c 24 20 41 38 36 31 20 | 20 72 3e 20 28 20 5f 52 |,$ A861 | r> ( _R|
|000003d0| 61 6e 64 6f 6d 20 29 0d | 20 20 20 20 73 77 61 70 |andom ).|    swap|
|000003e0| 20 33 32 37 36 38 20 2a | 2f 20 61 62 73 20 3b 20 | 32768 *|/ abs ; |
|000003f0| 20 28 20 73 63 61 6c 65 | 20 74 6f 20 73 69 7a 65 | ( scale| to size|
|00000400| 20 66 72 6f 6d 20 73 74 | 61 63 6b 20 29 0d 0d 28 | from st|ack )..(|
|00000410| 20 74 72 69 67 20 66 75 | 6e 63 74 69 6f 6e 73 20 | trig fu|nctions |
|00000420| 29 0d 76 61 72 69 61 62 | 6c 65 20 54 54 41 42 4c |).variab|le TTABL|
|00000430| 45 20 20 30 20 74 74 61 | 62 6c 65 20 21 20 20 28 |E  0 tta|ble !  (|
|00000440| 20 73 69 6e 65 73 2a 31 | 30 30 30 30 20 29 0d 20 | sines*1|0000 ). |
|00000450| 20 20 20 30 30 31 37 35 | 20 2c 20 30 30 33 34 39 |   00175| , 00349|
|00000460| 20 2c 20 30 30 35 32 34 | 20 2c 20 30 30 36 39 38 | , 00524| , 00698|
|00000470| 20 2c 20 30 30 38 37 32 | 20 2c 20 30 31 30 34 35 | , 00872| , 01045|
|00000480| 20 2c 20 30 31 32 31 39 | 20 2c 0d 20 20 20 20 30 | , 01219| ,.    0|
|00000490| 31 33 39 32 20 2c 20 30 | 31 35 37 31 20 2c 20 30 |1392 , 0|1571 , 0|
|000004a0| 31 37 33 36 20 2c 20 30 | 31 39 30 38 20 2c 20 30 |1736 , 0|1908 , 0|
|000004b0| 32 30 37 39 20 2c 20 30 | 32 32 35 30 20 2c 20 30 |2079 , 0|2250 , 0|
|000004c0| 32 34 31 39 20 2c 0d 20 | 20 20 20 30 32 35 38 38 |2419 ,. |   02588|
|000004d0| 20 2c 20 30 32 37 35 36 | 20 2c 20 30 32 39 32 34 | , 02756| , 02924|
|000004e0| 20 2c 20 30 33 30 39 30 | 20 2c 20 30 33 32 35 36 | , 03090| , 03256|
|000004f0| 20 2c 20 30 33 34 32 30 | 20 2c 20 30 33 35 38 34 | , 03420| , 03584|
|00000500| 20 2c 0d 20 20 20 20 30 | 33 37 34 36 20 2c 20 30 | ,.    0|3746 , 0|
|00000510| 33 39 30 37 20 2c 20 30 | 34 30 36 37 20 2c 20 30 |3907 , 0|4067 , 0|
|00000520| 34 32 32 36 20 2c 20 30 | 34 33 38 34 20 2c 20 30 |4226 , 0|4384 , 0|
|00000530| 34 35 34 30 20 2c 20 30 | 34 36 39 35 20 2c 0d 20 |4540 , 0|4695 ,. |
|00000540| 20 20 20 30 34 38 34 38 | 20 2c 20 30 35 30 30 30 |   04848| , 05000|
|00000550| 20 2c 20 30 35 31 35 30 | 20 2c 20 30 35 32 39 39 | , 05150| , 05299|
|00000560| 20 2c 20 30 35 34 34 36 | 20 2c 20 30 35 35 39 32 | , 05446| , 05592|
|00000570| 20 2c 20 30 35 37 33 36 | 20 2c 0d 20 20 20 20 30 | , 05736| ,.    0|
|00000580| 35 38 37 38 20 2c 20 30 | 36 30 31 38 20 2c 20 30 |5878 , 0|6018 , 0|
|00000590| 36 31 35 37 20 2c 20 30 | 36 32 39 33 20 2c 20 30 |6157 , 0|6293 , 0|
|000005a0| 36 34 32 38 20 2c 20 30 | 36 35 36 31 20 2c 20 30 |6428 , 0|6561 , 0|
|000005b0| 36 36 39 31 20 2c 0d 20 | 20 20 20 30 36 38 32 30 |6691 ,. |   06820|
|000005c0| 20 2c 20 30 36 39 34 37 | 20 2c 20 30 37 30 37 31 | , 06947| , 07071|
|000005d0| 20 2c 20 30 37 31 39 33 | 20 2c 20 30 37 33 31 34 | , 07193| , 07314|
|000005e0| 20 2c 20 30 37 34 33 31 | 20 2c 20 30 37 35 34 37 | , 07431| , 07547|
|000005f0| 20 2c 0d 20 20 20 20 30 | 37 36 36 30 20 2c 20 30 | ,.    0|7660 , 0|
|00000600| 37 37 37 31 20 2c 20 30 | 37 38 38 30 20 2c 20 30 |7771 , 0|7880 , 0|
|00000610| 37 39 38 36 20 2c 20 30 | 38 30 39 30 20 2c 20 30 |7986 , 0|8090 , 0|
|00000620| 38 31 39 32 20 2c 20 30 | 38 32 39 30 20 2c 0d 20 |8192 , 0|8290 ,. |
|00000630| 20 20 20 30 38 33 38 37 | 20 2c 20 30 38 34 38 30 |   08387| , 08480|
|00000640| 20 2c 20 30 38 35 37 32 | 20 2c 20 30 38 36 36 30 | , 08572| , 08660|
|00000650| 20 2c 20 30 38 37 34 36 | 20 2c 20 30 38 38 32 39 | , 08746| , 08829|
|00000660| 20 2c 20 30 38 39 31 30 | 20 2c 0d 20 20 20 20 30 | , 08910| ,.    0|
|00000670| 38 39 38 38 20 2c 20 30 | 39 30 36 33 20 2c 20 30 |8988 , 0|9063 , 0|
|00000680| 39 31 33 35 20 2c 20 30 | 39 32 30 35 20 2c 20 30 |9135 , 0|9205 , 0|
|00000690| 39 32 37 32 20 2c 20 30 | 39 33 33 36 20 2c 20 30 |9272 , 0|9336 , 0|
|000006a0| 39 33 39 37 20 2c 0d 20 | 20 20 20 30 39 34 35 35 |9397 ,. |   09455|
|000006b0| 20 2c 20 30 39 35 31 31 | 20 2c 20 30 39 35 36 33 | , 09511| , 09563|
|000006c0| 20 2c 20 30 39 36 31 33 | 20 2c 20 30 39 36 35 39 | , 09613| , 09659|
|000006d0| 20 2c 20 30 39 37 30 33 | 20 2c 20 30 39 37 34 34 | , 09703| , 09744|
|000006e0| 20 2c 0d 20 20 20 20 30 | 39 37 38 31 20 2c 20 30 | ,.    0|9781 , 0|
|000006f0| 39 38 31 36 20 2c 20 30 | 39 38 34 38 20 2c 20 30 |9816 , 0|9848 , 0|
|00000700| 39 38 37 37 20 2c 20 30 | 39 39 30 33 20 2c 20 30 |9877 , 0|9903 , 0|
|00000710| 39 39 32 35 20 2c 20 30 | 39 39 34 35 20 2c 0d 20 |9925 , 0|9945 ,. |
|00000720| 20 20 20 30 39 39 36 32 | 20 2c 20 30 39 39 37 36 |   09962| , 09976|
|00000730| 20 2c 20 30 39 39 38 36 | 20 2c 20 30 39 39 39 34 | , 09986| , 09994|
|00000740| 20 2c 20 30 39 39 39 38 | 20 2c 20 31 30 30 30 30 | , 09998| , 10000|
|00000750| 20 2c 0d 0d 3a 20 3f 4e | 45 47 41 54 45 20 28 20 | ,..: ?N|EGATE ( |
|00000760| 6e 20 66 20 2d 2d 20 6e | 20 6f 72 20 2d 6e 20 29 |n f -- n| or -n )|
|00000770| 20 49 46 20 6e 65 67 61 | 74 65 20 54 48 45 4e 20 | IF nega|te THEN |
|00000780| 3b 0d 3a 20 46 49 58 41 | 4e 47 4c 45 20 28 20 61 |;.: FIXA|NGLE ( a|
|00000790| 6e 67 6c 65 20 2d 2d 20 | 61 6e 67 6c 65 27 20 29 |ngle -- |angle' )|
|000007a0| 20 28 20 6d 61 70 20 61 | 6e 67 6c 65 20 74 6f 20 | ( map a|ngle to |
|000007b0| 2d 31 38 30 a1 20 74 6f | 20 31 38 30 a1 20 72 61 |-180. to| 180. ra|
|000007c0| 6e 67 65 20 29 0d 20 20 | 20 20 64 75 70 20 61 62 |nge ).  |  dup ab|
|000007d0| 73 20 20 42 45 47 49 4e | 20 20 64 75 70 20 31 38 |s  BEGIN|  dup 18|
|000007e0| 30 20 3e 20 57 48 49 4c | 45 20 20 33 36 30 20 2d |0 > WHIL|E  360 -|
|000007f0| 20 52 45 50 45 41 54 0d | 20 20 20 20 73 77 61 70 | REPEAT.|    swap|
|00000800| 20 30 3c 20 3f 6e 65 67 | 61 74 65 20 3b 0d 0d 3a | 0< ?neg|ate ;..:|
|00000810| 20 53 49 4e 20 28 20 61 | 6e 67 6c 65 20 2d 2d 20 | SIN ( a|ngle -- |
|00000820| 73 69 6e 20 29 20 28 20 | 2d 31 38 30 a1 b2 61 6e |sin ) ( |-180..an|
|00000830| 67 6c 65 b2 31 38 30 a1 | 20 29 0d 20 20 20 20 66 |gle.180.| ).    f|
|00000840| 69 78 61 6e 67 6c 65 20 | 64 75 70 20 30 3c 20 3e |ixangle |dup 0< >|
|00000850| 72 20 20 61 62 73 20 20 | 64 75 70 20 39 30 20 3e |r  abs  |dup 90 >|
|00000860| 20 49 46 20 20 31 38 30 | 20 73 77 61 70 20 2d 20 | IF  180| swap - |
|00000870| 54 48 45 4e 0d 20 20 20 | 20 20 20 32 2a 20 74 74 |THEN.   |   2* tt|
|00000880| 61 62 6c 65 20 2b 20 40 | 20 20 72 3e 20 3f 6e 65 |able + @|  r> ?ne|
|00000890| 67 61 74 65 20 3b 0d 3a | 20 43 4f 53 20 28 20 61 |gate ;.:| COS ( a|
|000008a0| 6e 67 6c 65 20 2d 2d 20 | 63 6f 73 20 29 0d 20 20 |ngle -- |cos ).  |
|000008b0| 20 20 64 75 70 20 30 3c | 20 49 46 20 39 30 20 2b |  dup 0<| IF 90 +|
|000008c0| 20 73 69 6e 20 20 45 4c | 53 45 20 20 39 30 20 2d | sin  EL|SE  90 -|
|000008d0| 20 73 69 6e 20 6e 65 67 | 61 74 65 20 54 48 45 4e | sin neg|ate THEN|
|000008e0| 20 3b 0d 3a 20 41 52 43 | 53 49 4e 20 28 20 73 69 | ;.: ARC|SIN ( si|
|000008f0| 6e 65 20 2d 2d 20 61 6e | 67 6c 65 20 29 0d 20 20 |ne -- an|gle ).  |
|00000900| 20 20 64 75 70 20 30 3c | 20 3e 72 20 20 61 62 73 |  dup 0<| >r  abs|
|00000910| 20 20 28 20 73 61 76 65 | 20 73 69 67 6e 20 29 0d |  ( save| sign ).|
|00000920| 20 20 20 20 20 20 39 31 | 20 30 20 44 4f 20 20 28 |      91| 0 DO  (|
|00000930| 20 63 68 65 63 6b 20 61 | 6c 6c 20 61 6e 67 6c 65 | check a|ll angle|
|00000940| 73 20 29 0d 20 20 20 20 | 20 20 20 20 64 75 70 20 |s ).    |    dup |
|00000950| 72 20 32 2a 20 74 74 61 | 62 6c 65 20 2b 20 40 20 |r 2* tta|ble + @ |
|00000960| 3e 20 30 3d 20 49 46 20 | 20 28 20 69 66 20 73 69 |> 0= IF | ( if si|
|00000970| 6e 3e 74 61 62 6c 65 20 | 76 61 6c 75 65 20 29 0d |n>table |value ).|
|00000980| 20 20 20 20 20 20 20 20 | 64 72 6f 70 20 72 20 20 |        |drop r  |
|00000990| 6c 65 61 76 65 20 54 48 | 45 4e 20 20 4c 4f 4f 50 |leave TH|EN  LOOP|
|000009a0| 0d 20 20 20 20 72 3e 20 | 3f 6e 65 67 61 74 65 20 |.    r> |?negate |
|000009b0| 3b 20 28 20 72 65 73 74 | 6f 72 65 20 73 69 67 6e |; ( rest|ore sign|
|000009c0| 20 29 0d 0d 28 20 69 6e | 74 65 72 70 6f 6c 61 74 | )..( in|terpolat|
|000009d0| 65 20 66 6f 72 20 67 72 | 65 61 74 65 72 20 61 63 |e for gr|eater ac|
|000009e0| 63 75 72 61 63 79 20 29 | 0d 3a 20 53 49 4e 45 20 |curacy )|.: SINE |
|000009f0| 28 20 61 6e 67 6c 65 20 | 74 68 6f 75 73 61 6e 74 |( angle |thousant|
|00000a00| 68 73 20 2d 2d 20 73 69 | 6e 65 20 29 0d 20 20 20 |hs -- si|ne ).   |
|00000a10| 20 3e 72 20 20 3e 72 20 | 20 72 20 73 69 6e 20 20 | >r  >r | r sin  |
|00000a20| 72 3e 20 31 2b 20 73 69 | 6e 20 20 6f 76 65 72 20 |r> 1+ si|n  over |
|00000a30| 2d 20 20 72 3e 20 31 30 | 30 30 20 2a 2f 20 2b 20 |-  r> 10|00 */ + |
|00000a40| 3b 0d 3a 20 43 4f 53 49 | 4e 45 20 28 20 61 6e 67 |;.: COSI|NE ( ang|
|00000a50| 6c 65 20 74 68 6f 75 73 | 61 6e 74 68 73 20 2d 2d |le thous|anths --|
|00000a60| 20 63 6f 73 69 6e 65 20 | 29 0d 20 20 20 20 3e 72 | cosine |).    >r|
|00000a70| 20 3e 72 20 20 72 20 63 | 6f 73 20 20 72 3e 20 31 | >r  r c|os  r> 1|
|00000a80| 2b 20 63 6f 73 20 20 6f | 76 65 72 20 2d 20 20 72 |+ cos  o|ver -  r|
|00000a90| 3e 20 31 30 30 30 20 2a | 2f 20 2b 20 3b 0d 0d 28 |> 1000 *|/ + ;..(|
|00000aa0| 20 62 61 73 69 63 20 73 | 61 6e 65 20 66 6c 6f 61 | basic s|ane floa|
|00000ab0| 74 69 6e 67 20 70 6f 69 | 6e 74 20 29 20 68 65 78 |ting poi|nt ) hex|
|00000ac0| 0d 32 76 61 72 69 61 62 | 6c 65 20 46 50 49 4e 20 |.2variab|le FPIN |
|00000ad0| 20 28 20 69 6e 74 65 67 | 65 72 20 69 6e 70 75 74 | ( integ|er input|
|00000ae0| 20 76 61 72 69 61 62 6c | 65 20 29 0d 3a 20 46 4c | variabl|e ).: FL|
|00000af0| 4f 41 54 20 28 20 63 6f | 6d 70 69 6c 65 3a 20 2d |OAT ( co|mpile: -|
|00000b00| 2d 20 20 29 20 28 20 72 | 75 6e 3a 20 2d 2d 20 61 |-  ) ( r|un: -- a|
|00000b10| 64 64 72 20 29 20 76 61 | 72 69 61 62 6c 65 20 38 |ddr ) va|riable 8|
|00000b20| 20 61 6c 6c 6f 74 20 3b | 0d 3a 20 34 50 41 43 4b | allot ;|.: 4PACK|
|00000b30| 20 28 20 2d 2d 20 29 20 | 41 39 45 42 20 2c 20 3b | ( -- ) |A9EB , ;|
|00000b40| 20 49 4d 4d 45 44 49 41 | 54 45 20 28 20 63 6f 6d | IMMEDIA|TE ( com|
|00000b50| 70 69 6c 65 20 61 20 5f | 50 61 63 6b 34 20 74 72 |pile a _|Pack4 tr|
|00000b60| 61 70 20 29 0d 3a 20 46 | 4f 50 32 20 28 20 73 6f |ap ).: F|OP2 ( so|
|00000b70| 75 72 63 65 20 64 65 73 | 74 20 6f 70 77 6f 72 64 |urce des|t opword|
|00000b80| 20 2d 2d 20 29 20 72 6f | 74 20 61 3e 72 20 20 73 | -- ) ro|t a>r  s|
|00000b90| 77 61 70 20 61 3e 72 20 | 20 3e 72 20 34 70 61 63 |wap a>r | >r 4pac|
|00000ba0| 6b 20 3b 0d 3a 20 46 21 | 20 28 20 64 20 66 6c 6f |k ;.: F!| ( d flo|
|00000bb0| 61 74 20 2d 2d 20 29 20 | 3e 72 20 68 65 72 65 20 |at -- ) |>r here |
|00000bc0| 32 21 20 72 3e 20 68 65 | 72 65 20 61 3e 72 20 20 |2! r> he|re a>r  |
|00000bd0| 61 3e 72 20 20 32 38 30 | 45 20 20 3e 72 20 34 70 |a>r  280|E  >r 4p|
|00000be0| 61 63 6b 20 3b 0d 3a 20 | 46 40 20 28 20 66 6c 6f |ack ;.: |F@ ( flo|
|00000bf0| 61 74 20 2d 2d 20 64 20 | 29 20 61 3e 72 20 20 68 |at -- d |) a>r  h|
|00000c00| 65 72 65 20 61 3e 72 20 | 20 32 38 31 30 20 20 3e |ere a>r | 2810  >|
|00000c10| 72 20 34 70 61 63 6b 20 | 20 68 65 72 65 20 32 40 |r 4pack | here 2@|
|00000c20| 20 3b 0d 3a 20 46 2b 20 | 28 20 66 6c 6f 61 74 31 | ;.: F+ |( float1|
|00000c30| 20 66 6c 6f 61 74 32 20 | 2d 2d 20 29 20 30 20 66 | float2 |-- ) 0 f|
|00000c40| 6f 70 32 20 3b 20 20 28 | 20 66 31 20 2b 20 66 32 |op2 ;  (| f1 + f2|
|00000c50| 20 2d 3e 20 66 32 20 29 | 0d 3a 20 46 2a 20 28 20 | -> f2 )|.: F* ( |
|00000c60| 66 6c 6f 61 74 31 20 66 | 6c 6f 61 74 32 20 2d 2d |float1 f|loat2 --|
|00000c70| 20 29 20 34 20 66 6f 70 | 32 20 3b 20 20 28 20 66 | ) 4 fop|2 ;  ( f|
|00000c80| 31 20 2a 20 66 32 20 2d | 3e 20 66 32 20 29 0d 3a |1 * f2 -|> f2 ).:|
|00000c90| 20 46 2d 20 28 20 66 6c | 6f 61 74 31 20 66 6c 6f | F- ( fl|oat1 flo|
|00000ca0| 61 74 32 20 2d 2d 20 29 | 20 32 20 66 6f 70 32 20 |at2 -- )| 2 fop2 |
|00000cb0| 3b 20 20 28 20 66 32 20 | 2d 20 66 31 20 2d 3e 20 |;  ( f2 |- f1 -> |
|00000cc0| 66 32 20 29 0d 3a 20 46 | 2f 20 28 20 66 6c 6f 61 |f2 ).: F|/ ( floa|
|00000cd0| 74 31 20 66 6c 6f 61 74 | 32 20 2d 2d 20 29 20 36 |t1 float|2 -- ) 6|
|00000ce0| 20 66 6f 70 32 20 3b 20 | 20 28 20 66 32 20 2f 20 | fop2 ; | ( f2 / |
|00000cf0| 66 31 20 2d 3e 20 66 32 | 20 29 0d 3a 20 46 52 4f |f1 -> f2| ).: FRO|
|00000d00| 4f 54 20 28 20 66 6c 6f | 61 74 20 2d 2d 20 29 20 |OT ( flo|at -- ) |
|00000d10| 20 61 3e 72 20 31 32 20 | 3e 72 20 34 70 61 63 6b | a>r 12 |>r 4pack|
|00000d20| 20 3b 20 20 28 20 c3 66 | 20 2d 3e 20 66 20 29 0d | ;  ( .f| -> f ).|
|00000d30| 3a 20 46 5e 32 20 28 20 | 66 6c 6f 61 74 20 2d 2d |: F^2 ( |float --|
|00000d40| 20 29 20 64 75 70 20 66 | 2a 20 3b 20 20 28 20 66 | ) dup f|* ;  ( f|
|00000d50| 5e 32 20 2d 3e 20 66 20 | 29 0d 0d 64 65 63 69 6d |^2 -> f |)..decim|
|00000d60| 61 6c 0d 32 76 61 72 69 | 61 62 6c 65 20 46 4f 52 |al.2vari|able FOR|
|00000d70| 4d 20 20 31 30 20 30 20 | 66 6f 72 6d 20 32 21 20 |M  10 0 |form 2! |
|00000d80| 20 28 20 64 65 63 66 6f | 72 6d 20 72 65 63 6f 72 | ( decfo|rm recor|
|00000d90| 64 20 29 0d 3a 20 50 4c | 41 43 45 53 20 28 20 2d |d ).: PL|ACES ( -|
|00000da0| 2d 20 6e 20 29 20 66 6f | 72 6d 20 32 2b 20 40 20 |- n ) fo|rm 2+ @ |
|00000db0| 31 20 2d 20 3b 20 20 28 | 20 6e 75 6d 62 65 72 20 |1 - ;  (| number |
|00000dc0| 6f 66 20 64 65 63 69 6d | 61 6c 20 70 6c 61 63 65 |of decim|al place|
|00000dd0| 73 20 29 0d 3a 20 46 2e | 20 28 20 66 6c 6f 61 74 |s ).: F.| ( float|
|00000de0| 20 2d 2d 20 29 20 28 20 | 70 72 69 6e 74 20 66 6c | -- ) ( |print fl|
|00000df0| 6f 61 74 20 29 0d 20 20 | 20 20 68 65 72 65 20 32 |oat ).  |  here 2|
|00000e00| 35 20 30 20 66 69 6c 6c | 20 20 28 20 70 72 65 70 |5 0 fill|  ( prep|
|00000e10| 61 72 65 20 63 6f 6e 76 | 65 72 73 69 6f 6e 20 61 |are conv|ersion a|
|00000e20| 72 65 61 20 29 0d 20 20 | 20 20 66 6f 72 6d 20 61 |rea ).  |  form a|
|00000e30| 3e 72 20 20 61 3e 72 20 | 20 68 65 72 65 20 61 3e |>r  a>r | here a>|
|00000e40| 72 20 20 31 31 20 3e 72 | 20 20 34 70 61 63 6b 20 |r  11 >r|  4pack |
|00000e50| 20 28 20 63 6f 6e 76 65 | 72 74 20 29 0d 20 20 20 | ( conve|rt ).   |
|00000e60| 20 68 65 72 65 20 40 20 | 49 46 20 34 35 20 65 6d | here @ |IF 45 em|
|00000e70| 69 74 20 54 48 45 4e 20 | 20 28 20 70 72 69 6e 74 |it THEN | ( print|
|00000e80| 20 2d 20 69 66 20 6e 65 | 67 61 74 69 76 65 20 29 | - if ne|gative )|
|00000e90| 0d 20 20 20 20 68 65 72 | 65 20 35 20 2b 20 31 20 |.    her|e 5 + 1 |
|00000ea0| 74 79 70 65 20 20 28 20 | 70 72 69 6e 74 20 66 69 |type  ( |print fi|
|00000eb0| 72 73 74 20 64 69 67 69 | 74 20 29 0d 20 20 20 20 |rst digi|t ).    |
|00000ec0| 38 20 65 6d 69 74 20 34 | 36 20 65 6d 69 74 20 20 |8 emit 4|6 emit  |
|00000ed0| 68 65 72 65 20 36 20 2b | 20 70 6c 61 63 65 73 20 |here 6 +| places |
|00000ee0| 74 79 70 65 20 20 28 20 | 70 72 69 6e 74 20 64 65 |type  ( |print de|
|00000ef0| 63 69 6d 61 6c 20 70 61 | 72 74 20 29 0d 20 20 20 |cimal pa|rt ).   |
|00000f00| 20 36 39 20 65 6d 69 74 | 20 20 68 65 72 65 20 32 | 69 emit|  here 2|
|00000f10| 2b 20 40 20 20 70 6c 61 | 63 65 73 20 2b 20 2e 20 |+ @  pla|ces + . |
|00000f20| 3b 20 20 28 20 70 72 69 | 6e 74 20 65 78 70 6f 6e |;  ( pri|nt expon|
|00000f30| 65 6e 74 20 29 0d 0d 28 | 20 66 6c 6f 61 74 69 6e |ent )..(| floatin|
|00000f40| 67 20 70 6f 69 6e 74 20 | 65 78 61 6d 70 6c 65 73 |g point |examples|
|00000f50| 3a 20 29 0d 66 6c 6f 61 | 74 20 46 31 20 20 20 28 |: ).floa|t F1   (|
|00000f60| 20 63 72 65 61 74 65 20 | 61 20 66 6c 6f 61 74 69 | create |a floati|
|00000f70| 6e 67 20 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 20 |ng point| number |
|00000f80| 29 0d 31 30 30 20 30 20 | 66 31 20 66 21 20 20 28 |).100 0 |f1 f!  (|
|00000f90| 20 73 65 74 20 66 31 20 | 74 6f 20 31 30 30 20 29 | set f1 |to 100 )|
|00000fa0| 0d 66 31 20 66 2e 20 20 | 20 20 20 20 28 20 70 72 |.f1 f.  |    ( pr|
|00000fb0| 69 6e 74 20 66 31 20 29 | 0d 66 31 20 66 5e 32 20 |int f1 )|.f1 f^2 |
|00000fc0| 20 20 20 20 28 20 66 31 | 20 3d 20 66 31 20 73 71 |    ( f1| = f1 sq|
|00000fd0| 75 61 72 65 64 20 29 0d | 66 31 20 66 72 6f 6f 74 |uared ).|f1 froot|
|00000fe0| 20 20 20 28 20 66 31 20 | 3d 20 73 71 75 61 72 65 |   ( f1 |= square|
|00000ff0| 20 72 6f 6f 74 20 6f 66 | 20 66 31 20 29 0d 66 6c | root of| f1 ).fl|
|00001000| 6f 61 74 20 46 32 20 20 | 20 28 20 63 72 65 61 74 |oat F2  | ( creat|
|00001010| 65 20 61 6e 6f 74 68 65 | 72 20 66 6c 6f 61 74 20 |e anothe|r float |
|00001020| 29 0d 33 20 30 20 66 32 | 20 66 21 20 20 28 20 66 |).3 0 f2| f!  ( f|
|00001030| 32 20 3d 20 33 20 29 0d | 66 32 20 66 31 20 66 2f |2 = 3 ).|f2 f1 f/|
|00001040| 20 20 20 28 20 66 32 20 | 3d 20 66 32 2f 66 31 20 |   ( f2 |= f2/f1 |
|00001050| 29 0d 66 31 20 66 2e 20 | 20 20 20 20 20 28 20 70 |).f1 f. |     ( p|
|00001060| 72 69 6e 74 20 74 68 65 | 20 72 65 73 75 6c 74 20 |rint the| result |
|00001070| 29 0d 66 31 20 66 40 20 | 64 2e 20 20 20 28 20 67 |).f1 f@ |d.   ( g|
|00001080| 65 74 20 26 20 70 72 69 | 6e 74 20 69 6e 74 65 67 |et & pri|nt integ|
|00001090| 65 72 20 72 65 73 75 6c | 74 20 29 0d 00 00 00 00 |er resul|t ).....|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001110| 22 89 00 01 22 77 ff ff | dc 00 00 00 15 00 00 00 |"..."w..|........|
|00001120| 00 00 b8 01 30 00 01 00 | 00 00 00 00 00 00 00 f0 |....0...|........|
|00001130| 04 4d 61 74 68 74 02 00 | 00 00 54 45 58 54 45 44 |.Matht..|..TEXTED|
|00001140| 49 54 00 00 00 00 00 00 | 06 39 00 00 00 5f 00 00 |IT......|.9..._..|
|00001150| 00 00 54 45 58 54 45 44 | 49 54 00 00 00 00 00 00 |..TEXTED|IT......|
|00001160| 06 39 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.9......|........|
|00001170| 00 00 9e 33 9d 48 00 00 | 10 1c 00 00 01 5c 0c 00 |...3.H..|.....\..|
|00001180| 00 00 00 00 50 00 c8 f0 | 63 55 55 00 00 00 50 00 |....P...|cUU...P.|
|00001190| 01 00 00 00 00 00 32 00 | 70 00 44 00 ba 04 02 4f |......2.|p.D....O|
|000011a0| 4b 00 00 00 00 00 0e 00 | 10 00 2e 00 ba 88 2f 42 |K.......|....../B|
|000011b0| 61 64 20 63 68 61 72 61 | 63 74 65 72 20 69 6e 20 |ad chara|cter in |
|000011c0| 6e 61 6d 65 2c 20 6f 72 | 20 63 61 6e 27 74 20 66 |name, or| can't f|
|000011d0| 69 6e 64 20 74 68 61 74 | 20 64 69 73 6b 2e 00 00 |ind that| disk...|
|000011e0| 00 00 38 00 01 00 00 00 | 00 00 34 00 70 00 46 00 |..8.....|..4.p.F.|
|000011f0| ba 04 02 4f 4b 00 00 00 | 00 00 15 00 0c 00 27 00 |...OK...|......'.|
|00001200| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 5e 00 00 |.......M|onaco^..|
|00001210| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00001220| 00 16 00 00 00 46 00 01 | 15 24 03 ae 00 00 00 1c |.....F..|.$......|
|00001230| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00001240| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 02 22 76 |........|......"v|
|00001250| 03 ec ff ff 00 00 00 0e | 00 01 c9 cc 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+